-- background: 2968 from stack: in
-- bmap block id: 2218
-- flags: 4000
-- background id: 0
-- name: Main
----- HyperTalk script -----
on newCard
  set the lockscreen to true
  repeat with counter = 19 to 38
    set cursor to busy
    put the short name of bkgnd button counter into theSetUp
    if counter < 35 then
      put 12 into bkgnd field theSetUp
    else
      delete last word of theSetUp
      put 7 into bkgnd field theSetUp
    end if
    put "Setting up"&&theSetUp
    show bkgnd button counter
    select bkgnd button counter
    doMenu "Copy Button"
    doMenu "Paste Button"
    hide bkgnd button counter
  end repeat
  put "Ready"
  choose browse tool
  Hide Message
end newCard


on importlyrics
  global myline,infile

  -- Get the name of the text file with lyrics
  put "Select ASCII text file with lyrics..."
  get fileName("TEXT")
  if it is empty then
    hide the message box
    exit importlyrics
  end if

  -- open the file
  set the cursor to 4
  put it into inFile
  open file inFile
  put false into eof
  put empty into dlNbr
  show field "lyrics"
  put true into locked
  put 1 into myline
  repeat until eof -- read in the lyrics
    read from file infile until return
    if it is empty then put true into eof
    if it is not empty then
      put it into line myLine of field "Lyrics"
      add 1 to myline
    end if
  end repeat
  hide field "lyrics"
  close file inFile
  put empty
  hide the message box
end importLyrics





-- part 28 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=38 top=81 right=96 bottom=58
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Trim1


-- part 29 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=85 top=81 right=96 bottom=105
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Trim2


-- part 30 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=132 top=81 right=96 bottom=152
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Trim3


-- part 31 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=178 top=81 right=96 bottom=198
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Trim4


-- part 32 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=37 top=117 right=132 bottom=57
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Hi1


-- part 33 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=85 top=116 right=131 bottom=105
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Hi2


-- part 34 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=133 top=117 right=132 bottom=153
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Hi3


-- part 35 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=178 top=118 right=133 bottom=198
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Hi4


-- part 36 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=38 top=153 right=168 bottom=58
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Lo1


-- part 37 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=85 top=153 right=168 bottom=105
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Lo2


-- part 38 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=132 top=153 right=168 bottom=152
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Lo3


-- part 39 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=179 top=152 right=167 bottom=199
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Lo4


-- part 40 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=39 top=188 right=203 bottom=59
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Pan1


-- part 41 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=85 top=189 right=204 bottom=105
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Pan2


-- part 42 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=132 top=189 right=204 bottom=152
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Pan3


-- part 43 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=180 top=189 right=204 bottom=200
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Pan4


-- part 44 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=38 top=250 right=265 bottom=58
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Level1


-- part 45 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=85 top=250 right=265 bottom=105
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Level2


-- part 46 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=133 top=250 right=265 bottom=153
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Level3


-- part 47 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=177 top=250 right=265 bottom=197
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Level4


-- part 73 (field)
-- low flags: 00
-- high flags: 4004
-- rect: left=231 top=116 right=158 bottom=455
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Song Title


-- part 23 (field)
-- low flags: 02
-- high flags: 0000
-- rect: left=293 top=162 right=181 bottom=338
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Tape Counter


-- part 22 (field)
-- low flags: 02
-- high flags: 0000
-- rect: left=394 top=162 right=181 bottom=439
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Time


-- part 69 (field)
-- low flags: 02
-- high flags: 4000
-- rect: left=312 top=199 right=217 bottom=456
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Tape Title


-- part 70 (field)
-- low flags: 02
-- high flags: 4000
-- rect: left=312 top=223 right=241 bottom=456
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: SongWriter


-- part 71 (field)
-- low flags: 02
-- high flags: 4000
-- rect: left=312 top=246 right=264 bottom=456
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Performer


-- part 72 (field)
-- low flags: 02
-- high flags: 4000
-- rect: left=313 top=268 right=286 bottom=457
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Date


-- part 64 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=34 top=219 right=333 bottom=61
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Level1
----- HyperTalk script -----
on mouseUp
  put the short name of me into theField
  put the rect of me into theRect
  put first item of theRect into theLeft
  put second item of theRect into theTop
  put third item of theRect into theRight
  put fourth item of theRect - 5 into theBottom
  put (theBottom-theTop)div 10 into theIncrement
  if the optionkey is down then
    subtract 1 from bkgnd field theField
  else
    add 1 to bkgnd field theField
  end if
  if bkgnd field theField > 10 then put 0 into bkgnd field theField
  if bkgnd field theField < 0 then put 10 into bkgnd field theField
  put bkgnd field theField into theValue
  put the short name of me&&"Slider" into theName
  set the left of card button theName to theLeft-2
  set the bottom of card button theName to (theBottom - theValue*theIncrement) + 8
end mouseUp



-- part 27 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=28 top=33 right=66 bottom=94
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Inst1


-- part 26 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=103 top=33 right=66 bottom=169
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Inst2


-- part 65 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=82 top=219 right=333 bottom=109
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Level2
----- HyperTalk script -----
on mouseUp
  put the short name of me into theField
  put the rect of me into theRect
  put first item of theRect into theLeft
  put second item of theRect into theTop
  put third item of theRect into theRight
  put fourth item of theRect - 5 into theBottom
  put (theBottom-theTop)div 10 into theIncrement
  if the optionkey is down then
    subtract 1 from bkgnd field theField
  else
    add 1 to bkgnd field theField
  end if
  if bkgnd field theField > 10 then put 0 into bkgnd field theField
  if bkgnd field theField < 0 then put 10 into bkgnd field theField
  put bkgnd field theField into theValue
  put the short name of me&&"Slider" into theName
  set the left of card button theName to theLeft-2
  set the bottom of card button theName to (theBottom - theValue*theIncrement) + 8
end mouseUp



-- part 25 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=178 top=33 right=66 bottom=244
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Inst3


-- part 24 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=252 top=33 right=66 bottom=318
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Inst4


-- part 66 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=129 top=219 right=333 bottom=157
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Level3
----- HyperTalk script -----
on mouseUp
  put the short name of me into theField
  put the rect of me into theRect
  put first item of theRect into theLeft
  put second item of theRect into theTop
  put third item of theRect into theRight
  put fourth item of theRect - 5 into theBottom
  put (theBottom-theTop)div 10 into theIncrement
  if the optionkey is down then
    subtract 1 from bkgnd field theField
  else
    add 1 to bkgnd field theField
  end if
  if bkgnd field theField > 10 then put 0 into bkgnd field theField
  if bkgnd field theField < 0 then put 10 into bkgnd field theField
  put bkgnd field theField into theValue
  put the short name of me&&"Slider" into theName
  set the left of card button theName to theLeft-2
  set the bottom of card button theName to (theBottom - theValue*theIncrement) + 8
end mouseUp



-- part 67 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=174 top=219 right=333 bottom=202
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Level4
----- HyperTalk script -----
on mouseUp
  put the short name of me into theField
  put the rect of me into theRect
  put first item of theRect into theLeft
  put second item of theRect into theTop
  put third item of theRect into theRight
  put fourth item of theRect - 5 into theBottom
  put (theBottom-theTop)div 10 into theIncrement
  if the optionkey is down then
    subtract 1 from bkgnd field theField
  else
    add 1 to bkgnd field theField
  end if
  if bkgnd field theField > 10 then put 0 into bkgnd field theField
  if bkgnd field theField < 0 then put 10 into bkgnd field theField
  put bkgnd field theField into theValue
  put the short name of me&&"Slider" into theName
  set the left of card button theName to theLeft-2
  set the bottom of card button theName to (theBottom - theValue*theIncrement) + 8
end mouseUp



-- part 75 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=272 top=288 right=337 bottom=299
-- title width / last selected line: 0
-- icon id / first selected line: 15420 / 15420
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect scroll right
  go to previous card of this background
end mouseUp


-- part 76 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=306 top=288 right=337 bottom=333
-- title width / last selected line: 0
-- icon id / first selected line: 16560 / 16560
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect scroll left
  go to next card of this background
end mouseUp


-- part 77 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=424 top=288 right=337 bottom=457
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  go home
end mouseUp



-- part 78 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=458 top=84 right=133 bottom=499
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort
----- HyperTalk script -----
on mouseUp
  answer "Sort the cards by:" with "Title" or "Index" or "Cancel"
  if it is "Title" then
    sort by Field "Song Title" alphabetically
  end if
  if it is "Index" then
    sort by Field "Index Number" numerically
  end if
end mouseUp



-- part 79 (field)
-- low flags: 03
-- high flags: 4000
-- rect: left=439 top=28 right=42 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Index number


-- part 80 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=383 top=288 right=337 bottom=416
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  domenu "new card"
end mouseUp



-- part 81 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=341 top=288 right=337 bottom=374
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  put the short date into background field "date"
end mouseUp



-- part 86 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=232 top=288 right=337 bottom=265
-- title width / last selected line: 0
-- icon id / first selected line: 26635 / 26635
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  push card
  visual effect zoom open
  go to card "Help Card"
end mouseUp


-- part 88 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=444 top=135 right=181 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 1004 / 1004
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Import Lyrics
----- HyperTalk script -----
on mouseUp
  global myline
  importlyrics
end mouseUp



-- part 97 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=244 top=194 right=216 bottom=273
-- title width / last selected line: 0
-- icon id / first selected line: 6448 / 6448
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 4-Track Stack
----- HyperTalk script -----
on mouseUp
  answer "Find a copy of this button on the help card…" with "OK"
  answer "It will install a link in your Home stack" with "OK"
end mouseUp



-- part 89 (field)
-- low flags: 80
-- high flags: 2007
-- rect: left=231 top=100 right=338 bottom=457
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Lyrics


-- part 90 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=276 top=81 right=99 bottom=403
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hide Lyrics
----- HyperTalk script -----
on mouseUp
  hide field "Lyrics"
  show background button "Show Lyrics"
  hide background button "Hide Lyrics"
end mouseUp



-- part 92 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=276 top=81 right=99 bottom=403
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Show Lyrics
----- HyperTalk script -----
on mouseUp
  show field "Lyrics"
  show background button "Hide Lyrics"
  hide background button "Show Lyrics"
end mouseUp



-- part 96 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=427 top=28 right=74 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Enter Index
----- HyperTalk script -----
on mouseUp
  ask "What is the Recording's Index number?"
  if it is not empty then
    put it into field "Index Number"
  end if
end mouseUp



-- part 98 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=337 top=28 right=74 bottom=417
-- title width / last selected line: 0
-- icon id / first selected line: 5937 / 5937
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Unlocked
----- HyperTalk script -----
on mouseUp
  repeat with counter = 21 to 31
    set the locktext of field counter to true
  end repeat
  show background button "Locked"
  hide background button "Unlocked"
  set the cantmodify of this stack to true
end mouseUp



-- part 99 (button)
-- low flags: 80
-- high flags: A000
-- rect: left=337 top=28 right=74 bottom=417
-- title width / last selected line: 0
-- icon id / first selected line: 26178 / 26178
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Locked
----- HyperTalk script -----
on mouseUp
  set the cantmodify of this stack to false
  repeat with counter = 21 to 31
    set the locktext of field counter to false
  end repeat
  show background button "Unlocked"
  hide background button "Locked"
end mouseUp



-- part 101 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=31 top=73 right=105 bottom=65
-- title width / last selected line: 0
-- icon id / first selected line: 5212 / 5212
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Trim1
----- HyperTalk script -----
on mouseUp
  put the short name of me into theField
  if the optionkey is down then
    subtract 1 from bkgnd field theField
  else
    add 1 to bkgnd field theField
  end if
  if bkgnd field theField > 12 then put 1 into bkgnd field theField
  if bkgnd field theField < 1 then put 12 into bkgnd field theField
  set the icon of me to (5200 + bkgnd field theField)
end mouseUp



-- part 102 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=78 top=73 right=105 bottom=112
-- title width / last selected line: 0
-- icon id / first selected line: 5212 / 5212
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Trim2
----- HyperTalk script -----
on mouseUp
  put the short name of me into theField
  if the optionkey is down then
    subtract 1 from bkgnd field theField
  else
    add 1 to bkgnd field theField
  end if
  if bkgnd field theField > 12 then put 1 into bkgnd field theField
  if bkgnd field theField < 1 then put 12 into bkgnd field theField
  set the icon of me to (5200 + bkgnd field theField)
end mouseUp



-- part 103 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=126 top=73 right=105 bottom=160
-- title width / last selected line: 0
-- icon id / first selected line: 5212 / 5212
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Trim3
----- HyperTalk script -----
on mouseUp
  put the short name of me into theField
  if the optionkey is down then
    subtract 1 from bkgnd field theField
  else
    add 1 to bkgnd field theField
  end if
  if bkgnd field theField > 12 then put 1 into bkgnd field theField
  if bkgnd field theField < 1 then put 12 into bkgnd field theField
  set the icon of me to (5200 + bkgnd field theField)
end mouseUp



-- part 104 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=171 top=73 right=105 bottom=205
-- title width / last selected line: 0
-- icon id / first selected line: 5212 / 5212
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Trim4
----- HyperTalk script -----
on mouseUp
  put the short name of me into theField
  if the optionkey is down then
    subtract 1 from bkgnd field theField
  else
    add 1 to bkgnd field theField
  end if
  if bkgnd field theField > 12 then put 1 into bkgnd field theField
  if bkgnd field theField < 1 then put 12 into bkgnd field theField
  set the icon of me to (5200 + bkgnd field theField)
end mouseUp



-- part 111 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=31 top=109 right=141 bottom=65
-- title width / last selected line: 0
-- icon id / first selected line: 5312 / 5312
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hi1
----- HyperTalk script -----
on mouseUp
  put the short name of me into theField
  if the optionkey is down then
    subtract 1 from bkgnd field theField
  else
    add 1 to bkgnd field theField
  end if
  if bkgnd field theField > 12 then put 1 into bkgnd field theField
  if bkgnd field theField < 1 then put 12 into bkgnd field theField
  set the icon of me to (5300 + bkgnd field theField)
end mouseUp



-- part 112 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=78 top=109 right=141 bottom=112
-- title width / last selected line: 0
-- icon id / first selected line: 5312 / 5312
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hi2
----- HyperTalk script -----
on mouseUp
  put the short name of me into theField
  if the optionkey is down then
    subtract 1 from bkgnd field theField
  else
    add 1 to bkgnd field theField
  end if
  if bkgnd field theField > 12 then put 1 into bkgnd field theField
  if bkgnd field theField < 1 then put 12 into bkgnd field theField
  set the icon of me to (5300 + bkgnd field theField)
end mouseUp



-- part 113 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=126 top=109 right=141 bottom=160
-- title width / last selected line: 0
-- icon id / first selected line: 5312 / 5312
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hi3
----- HyperTalk script -----
on mouseUp
  put the short name of me into theField
  if the optionkey is down then
    subtract 1 from bkgnd field theField
  else
    add 1 to bkgnd field theField
  end if
  if bkgnd field theField > 12 then put 1 into bkgnd field theField
  if bkgnd field theField < 1 then put 12 into bkgnd field theField
  set the icon of me to (5300 + bkgnd field theField)
end mouseUp



-- part 114 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=171 top=109 right=141 bottom=205
-- title width / last selected line: 0
-- icon id / first selected line: 5312 / 5312
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hi4
----- HyperTalk script -----
on mouseUp
  put the short name of me into theField
  if the optionkey is down then
    subtract 1 from bkgnd field theField
  else
    add 1 to bkgnd field theField
  end if
  if bkgnd field theField > 12 then put 1 into bkgnd field theField
  if bkgnd field theField < 1 then put 12 into bkgnd field theField
  set the icon of me to (5300 + bkgnd field theField)
end mouseUp



-- part 115 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=31 top=145 right=177 bottom=65
-- title width / last selected line: 0
-- icon id / first selected line: 5312 / 5312
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Lo1
----- HyperTalk script -----
on mouseUp
  put the short name of me into theField
  if the optionkey is down then
    subtract 1 from bkgnd field theField
  else
    add 1 to bkgnd field theField
  end if
  if bkgnd field theField > 12 then put 1 into bkgnd field theField
  if bkgnd field theField < 1 then put 12 into bkgnd field theField
  set the icon of me to (5300 + bkgnd field theField)
end mouseUp



-- part 116 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=78 top=145 right=177 bottom=112
-- title width / last selected line: 0
-- icon id / first selected line: 5312 / 5312
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Lo2
----- HyperTalk script -----
on mouseUp
  put the short name of me into theField
  if the optionkey is down then
    subtract 1 from bkgnd field theField
  else
    add 1 to bkgnd field theField
  end if
  if bkgnd field theField > 12 then put 1 into bkgnd field theField
  if bkgnd field theField < 1 then put 12 into bkgnd field theField
  set the icon of me to (5300 + bkgnd field theField)
end mouseUp



-- part 117 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=126 top=145 right=177 bottom=160
-- title width / last selected line: 0
-- icon id / first selected line: 5312 / 5312
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Lo3
----- HyperTalk script -----
on mouseUp
  put the short name of me into theField
  if the optionkey is down then
    subtract 1 from bkgnd field theField
  else
    add 1 to bkgnd field theField
  end if
  if bkgnd field theField > 12 then put 1 into bkgnd field theField
  if bkgnd field theField < 1 then put 12 into bkgnd field theField
  set the icon of me to (5300 + bkgnd field theField)
end mouseUp



-- part 118 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=171 top=145 right=177 bottom=205
-- title width / last selected line: 0
-- icon id / first selected line: 5312 / 5312
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Lo4
----- HyperTalk script -----
on mouseUp
  put the short name of me into theField
  if the optionkey is down then
    subtract 1 from bkgnd field theField
  else
    add 1 to bkgnd field theField
  end if
  if bkgnd field theField > 12 then put 1 into bkgnd field theField
  if bkgnd field theField < 1 then put 12 into bkgnd field theField
  set the icon of me to (5300 + bkgnd field theField)
end mouseUp



-- part 119 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=31 top=180 right=212 bottom=65
-- title width / last selected line: 0
-- icon id / first selected line: 5412 / 5412
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Pan1
----- HyperTalk script -----
on mouseUp
  put the short name of me into theField
  if the optionkey is down then
    subtract 1 from bkgnd field theField
  else
    add 1 to bkgnd field theField
  end if
  if bkgnd field theField > 12 then put 1 into bkgnd field theField
  if bkgnd field theField < 1 then put 12 into bkgnd field theField
  set the icon of me to (5400 + bkgnd field theField)
end mouseUp



-- part 120 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=78 top=180 right=212 bottom=112
-- title width / last selected line: 0
-- icon id / first selected line: 5412 / 5412
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Pan2
----- HyperTalk script -----
on mouseUp
  put the short name of me into theField
  if the optionkey is down then
    subtract 1 from bkgnd field theField
  else
    add 1 to bkgnd field theField
  end if
  if bkgnd field theField > 12 then put 1 into bkgnd field theField
  if bkgnd field theField < 1 then put 12 into bkgnd field theField
  set the icon of me to (5400 + bkgnd field theField)
end mouseUp



-- part 121 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=126 top=180 right=212 bottom=160
-- title width / last selected line: 0
-- icon id / first selected line: 5412 / 5412
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Pan3
----- HyperTalk script -----
on mouseUp
  put the short name of me into theField
  if the optionkey is down then
    subtract 1 from bkgnd field theField
  else
    add 1 to bkgnd field theField
  end if
  if bkgnd field theField > 12 then put 1 into bkgnd field theField
  if bkgnd field theField < 1 then put 12 into bkgnd field theField
  set the icon of me to (5400 + bkgnd field theField)
end mouseUp



-- part 123 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=171 top=180 right=212 bottom=205
-- title width / last selected line: 0
-- icon id / first selected line: 5412 / 5412
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Pan4
----- HyperTalk script -----
on mouseUp
  put the short name of me into theField
  if the optionkey is down then
    subtract 1 from bkgnd field theField
  else
    add 1 to bkgnd field theField
  end if
  if bkgnd field theField > 12 then put 1 into bkgnd field theField
  if bkgnd field theField < 1 then put 12 into bkgnd field theField
  set the icon of me to (5400 + bkgnd field theField)
end mouseUp



-- part 125 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=32 top=249 right=266 bottom=66
-- title width / last selected line: 0
-- icon id / first selected line: 6000 / 6000
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Level1 Slider
----- HyperTalk script -----
on mouseUp
  send mouseup to bkgnd btn "level1"
end mouseUp



-- part 126 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=80 top=249 right=266 bottom=113
-- title width / last selected line: 0
-- icon id / first selected line: 6000 / 6000
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Level2 Slider
----- HyperTalk script -----
on mouseUp
  send mouseup to bkgnd btn "level2"
end mouseUp



-- part 127 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=127 top=249 right=266 bottom=160
-- title width / last selected line: 0
-- icon id / first selected line: 6000 / 6000
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Level3 Slider
----- HyperTalk script -----
on mouseUp
  send mouseup to bkgnd btn "level3"
end mouseUp



-- part 128 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=172 top=249 right=266 bottom=205
-- title width / last selected line: 0
-- icon id / first selected line: 6000 / 6000
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Level4 Slider
----- HyperTalk script -----
on mouseUp
  send mouseup to bkgnd btn "level4"
end mouseUp